home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 34
/
PC Gamer IT CD 34 2-2.iso
/
utility
/
soundwerks
/
miniwerks.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1998-08-13
|
6KB
|
197 lines
object Form1: TForm1
Left = 305
Top = 320
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Miniwerks'
ClientHeight = 22
ClientWidth = 170
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
PopupMenu = PopupMenu1
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object MediaPlayer1: TMediaPlayer
Left = 40
Top = -8
Width = 29
Height = 30
VisibleButtons = []
AutoOpen = True
DeviceType = dtCDAudio
Visible = False
TabOrder = 0
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 150
Height = 22
BevelOuter = bvNone
TabOrder = 1
object BackButton: TSpeedButton
Left = 0
Top = 0
Width = 25
Height = 22
Hint = 'Previous Track'
Glyph.Data = {
E6000000424DE60000000000000076000000280000000D0000000E0000000100
0400000000007000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
30003FFF333333FF3000308F33333F8F3000308F3333F88F3000308F333F888F
3000308F33F8888F3000308F3F88888F3000308F3088888F3000308F3308888F
3000308F3330888F3000308F3333088F3000308F3333308F3000300033333300
30003333333333333000}
ParentShowHint = False
ShowHint = True
OnClick = BackButtonClick
end
object PlayButton: TSpeedButton
Left = 25
Top = 0
Width = 25
Height = 22
Hint = 'Play'
Glyph.Data = {
E6000000424DE6000000000000007600000028000000100000000E0000000100
0400000000007000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333FF3333333333333308FF3333333333330888FF3333333333088888FF3
333333308888888FF3333330888888888FF33330888888888003333088888880
0333333088888003333333308880033333333330800333333333333003333333
33333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = PlayButtonClick
end
object PauseButton: TSpeedButton
Left = 50
Top = 0
Width = 25
Height = 22
Hint = 'Pause'
Enabled = False
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFF33FFFFF33330888F330888F33330888F330888F33330888F33088
8F33330888F330888F33330888F330888F33330888F330888F33330888F33088
8F33330888F330888F33330888F330888F33330888F330888F33330888F33088
8F3333000003300000333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = PauseButtonClick
end
object StopButton: TSpeedButton
Left = 75
Top = 0
Width = 25
Height = 22
Hint = 'Stop'
Enabled = False
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333FFFFFFFFFFFF333308888888888F33330888888888
8F333308888888888F333308888888888F333308888888888F33330888888888
8F333308888888888F333308888888888F333308888888888F33330000000000
003333333333333333333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = StopButtonClick
end
object NextButton: TSpeedButton
Left = 100
Top = 0
Width = 25
Height = 22
Hint = 'Next Track'
Glyph.Data = {
E6000000424DE60000000000000076000000280000000D0000000E0000000100
0400000000007000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
30003FF333333FFF3000308F3333308F30003088F333308F300030888F33308F
3000308888F3308F30003088888F308F300030888880308F300030888803308F
300030888033308F300030880333308F300030803333308F3000300333333000
30003333333333333000}
ParentShowHint = False
ShowHint = True
OnClick = NextButtonClick
end
object EjectButton: TSpeedButton
Left = 125
Top = 0
Width = 25
Height = 22
Hint = 'Eject'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
30003FFFFFFFFFFF300030888888888F30003000000000003000333333333333
30003FFFFFFFFFFF300030888888888030003308888888033000333088888033
3000333308880333300033333080333330003333330333333000333333333333
3000}
ParentShowHint = False
ShowHint = True
end
end
object PopupMenu1: TPopupMenu
Left = 24
Top = 65520
object Play1: TMenuItem
Caption = '&Play'
ShortCut = 0
OnClick = Play1Click
end
object Next1: TMenuItem
Caption = 'P&ause'
ShortCut = 0
OnClick = Next1Click
end
object Stop1: TMenuItem
Caption = '&Stop'
ShortCut = 0
OnClick = Stop1Click
end
object Next2: TMenuItem
Caption = '&Next Track'
ShortCut = 0
OnClick = Next2Click
end
object PreviousTrack1: TMenuItem
Caption = 'P&revious Track'
ShortCut = 0
OnClick = PreviousTrack1Click
end
object Eject1: TMenuItem
Caption = '&Eject'
ShortCut = 0
OnClick = Eject1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
end